Option Explicit
Sub C_Sample005()
    Dim myRng As Range
    Cells.Clear						'xs檺M
    Set myRng = Range("A1")				'Nxs
    With myRng
        .Value = "IF"				']wr
        'ǳƨ즹
        MsgBox "Nr"
        'mr
        .Value = WorksheetFunction.Substitute(.Value, "F", "tc")
    End With
    Set myRng = Nothing					'
End Sub
